home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 November / Ahoy_Magazine_86-11_1986_Double_L.d64 / Datawriter 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  37 lines
  1. 0 print"[147][144]":poke53280,6:poke53281,1
  2. 1 print"datawriter....64 version":print:print
  3. 2 rem         datawriter - 64
  4. 3 rem        rupert report #35
  5. 4 rem
  6. 5 rem      *** c-64  version ***
  7. 6 rem
  8. 7 rem =================================
  9. 20 f$="time1"   :rem  default filename
  10. 30 open15,8,15:open8,8,8,f$+",w"
  11. 40 input#15,ds,ds$ :dd=ds :if dd<>0 then goto 1000
  12. 50 rem ********************************
  13. 60 rem   this loop generates the data
  14. 70 rem      and writes it to disk
  15. 80 rem --------------------------------
  16. 90 for n=1 to 100
  17. 100 t2=ti^2
  18. 110 print#8,t2
  19. 120 ss=st: if ss<>0 then 1000
  20. 130 print n; :rem show activity
  21. 140 next
  22. 150 rem --------------------------------
  23. 160 rem            end of loop
  24. 170 rem ********************************
  25. 180 close8:close15
  26. 190 end
  27. 1000 rem      -- error handler --
  28. 1010 close8 :close15 :if dd=63 then 1030
  29. 1020 print :print ds$ :print "i/o status error # ";ss : end
  30. 1030 print "file "f$" exists."
  31. 1040 a$="" : input "do you want to write over it (y/n) (return to exit)";a$
  32. 1050 if a$="" then end
  33. 1060 if a$="y" then open15,8,15,"s:"+f$:close15 : goto 30
  34. 1070 if a$<>"n" then 1040
  35. 1080 input"what filename do you want";f$
  36. 1090 goto 30
  37.